MacAddict Special 2004: The Ultimate How-To Collection

home *** CD-ROM | disk | FTP | other *** search
/ MacAddict Special 2004: T…timate How-To Collection / MacAddict SPECIAL 2004 Ultimate How to Collection.toast / Build a Music Maker / Music Project / KeyboardCanvas
RealBasic Project | 2003-10-03 | 10.0 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was processed as: RealBasic Project (other/realBasicProject).
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	RealBasic Project `(other/realBasicProject)`	magic	Unsupported
`100%`	file	data	default
`100%`	TrID	REALbasic/Xojo Project	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 52 62 42 46 00 00 00 01 | 00 00 00 00 00 00 00 00 |RbBF....|........|
|00000010| 00 00 00 14 42 6c 6f 6b | 70 4f 62 6a b6 9b d8 05 |....Blok|pObj....|
|00000020| 00 00 00 00 00 00 28 00 | 00 00 00 00 55 d2 2b b8 |......(.|....U.+.|
|00000030| 0a f2 83 07 4e 61 6d 65 | 53 74 72 6e 00 00 00 0e |....Name|Strn....|
|00000040| 4b 65 79 62 6f 61 72 64 | 43 61 6e 76 61 73 00 00 |Keyboard|Canvas..|
|00000050| 43 6f 6e 74 49 6e 74 20 | 00 00 00 00 72 45 64 74 |ContInt |....rEdt|
|00000060| 52 65 63 74 00 00 01 52 | 00 00 01 88 00 00 03 2c |Rect...R|.......,|
|00000070| 00 00 03 1a 65 53 70 74 | 49 6e 74 20 00 00 00 fc |....eSpt|Int ....|
|00000080| 62 50 47 70 47 72 75 70 | 00 00 00 50 00 00 00 02 |bPGpGrup|...P....|
|00000090| 62 50 45 6c 47 72 75 70 | 00 00 00 34 00 00 00 03 |bPElGrup|...4....|
|000000a0| 73 63 4b 79 49 6e 74 20 | 05 f5 e4 93 72 45 64 74 |scKyInt |....rEdt|
|000000b0| 52 65 63 74 00 00 01 52 | 00 00 01 88 00 00 03 2c |Rect...R|.......,|
|000000c0| 00 00 03 1a 65 53 70 74 | 49 6e 74 20 00 00 00 fc |....eSpt|Int ....|
|000000d0| 45 6e 64 47 49 6e 74 20 | 00 00 00 03 45 6e 64 47 |EndGInt |....EndG|
|000000e0| 49 6e 74 20 00 00 00 02 | 62 43 6c 73 49 6e 74 20 |Int ....|bClsInt |
|000000f0| 00 00 00 01 49 6e 74 72 | 53 74 72 6e 00 00 00 00 |....Intr|Strn....|
|00000100| 4e 61 6d 65 53 74 72 6e | 00 00 00 0e 4b 65 79 62 |NameStrn|....Keyb|
|00000110| 6f 61 72 64 43 61 6e 76 | 61 73 00 00 53 69 7a 65 |oardCanv|as..Size|
|00000120| 49 6e 74 20 00 00 00 8c | 53 75 70 72 53 74 72 6e |Int ....|SuprStrn|
|00000130| 00 00 00 06 43 61 6e 76 | 61 73 00 00 62 4e 74 72 |....Canv|as..bNtr|
|00000140| 49 6e 74 20 00 00 00 00 | 50 72 6f 70 47 72 75 70 |Int ....|PropGrup|
|00000150| 00 00 00 34 00 00 00 04 | 64 65 63 6c 53 74 72 6e |...4....|declStrn|
|00000160| 00 00 00 15 74 68 65 50 | 69 63 74 75 72 65 20 61 |....theP|icture a|
|00000170| 73 20 50 69 63 74 75 72 | 65 00 00 00 66 6c 61 67 |s Pictur|e...flag|
|00000180| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00000190| 00 00 00 04 50 72 6f 70 | 47 72 75 70 00 00 00 38 |....Prop|Grup...8|
|000001a0| 00 00 00 05 64 65 63 6c | 53 74 72 6e 00 00 00 19 |....decl|Strn....|
|000001b0| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 20 61 |theCurre|ntNote a|
|000001c0| 73 20 69 6e 74 65 67 65 | 72 00 00 00 66 6c 61 67 |s intege|r...flag|
|000001d0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000001e0| 00 00 00 05 50 72 6f 70 | 47 72 75 70 00 00 00 34 |....Prop|Grup...4|
|000001f0| 00 00 00 06 64 65 63 6c | 53 74 72 6e 00 00 00 16 |....decl|Strn....|
|00000200| 74 68 65 4c 61 73 74 4e | 6f 74 65 20 61 73 20 69 |theLastN|ote as i|
|00000210| 6e 74 65 67 65 72 00 00 | 66 6c 61 67 49 6e 74 20 |nteger..|flagInt |
|00000220| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 06 |....EndG|Int ....|
|00000230| 50 72 6f 70 47 72 75 70 | 00 00 00 34 00 00 00 07 |PropGrup|...4....|
|00000240| 64 65 63 6c 53 74 72 6e | 00 00 00 16 68 6f 72 69 |declStrn|....hori|
|00000250| 7a 53 63 72 6f 6c 6c 20 | 61 73 20 69 6e 74 65 67 |zScroll |as integ|
|00000260| 65 72 00 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |er..flag|Int ....|
|00000270| 45 6e 64 47 49 6e 74 20 | 00 00 00 07 50 72 6f 70 |EndGInt |....Prop|
|00000280| 47 72 75 70 00 00 00 30 | 00 00 00 08 64 65 63 6c |Grup...0|....decl|
|00000290| 53 74 72 6e 00 00 00 12 | 78 6f 66 66 73 65 74 20 |Strn....|xoffset |
|000002a0| 61 73 20 69 6e 74 65 67 | 65 72 00 00 66 6c 61 67 |as integ|er..flag|
|000002b0| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000002c0| 00 00 00 08 50 72 6f 70 | 47 72 75 70 00 00 00 34 |....Prop|Grup...4|
|000002d0| 00 00 00 09 64 65 63 6c | 53 74 72 6e 00 00 00 17 |....decl|Strn....|
|000002e0| 74 68 65 4b 65 79 49 73 | 44 6f 77 6e 20 61 73 20 |theKeyIs|Down as |
|000002f0| 62 6f 6f 6c 65 61 6e 00 | 66 6c 61 67 49 6e 74 20 |boolean.|flagInt |
|00000300| 00 00 00 00 45 6e 64 47 | 49 6e 74 20 00 00 00 09 |....EndG|Int ....|
|00000310| 50 72 6f 70 47 72 75 70 | 00 00 00 34 00 00 00 0a |PropGrup|...4....|
|00000320| 64 65 63 6c 53 74 72 6e | 00 00 00 17 74 68 65 50 |declStrn|....theP|
|00000330| 6c 61 79 65 72 20 61 73 | 20 4e 6f 74 65 50 6c 61 |layer as| NotePla|
|00000340| 79 65 72 00 66 6c 61 67 | 49 6e 74 20 00 00 00 00 |yer.flag|Int ....|
|00000350| 45 6e 64 47 49 6e 74 20 | 00 00 00 0a 50 72 6f 70 |EndGInt |....Prop|
|00000360| 47 72 75 70 00 00 00 30 | 00 00 00 0b 64 65 63 6c |Grup...0|....decl|
|00000370| 53 74 72 6e 00 00 00 14 | 74 68 65 56 6f 6c 75 6d |Strn....|theVolum|
|00000380| 65 20 61 73 20 69 6e 74 | 65 67 65 72 66 6c 61 67 |e as int|egerflag|
|00000390| 49 6e 74 20 00 00 00 00 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000003a0| 00 00 00 0b 4d 65 74 68 | 47 72 75 70 00 00 01 68 |....Meth|Grup...h|
|000003b0| 00 00 00 0c 6e 61 6d 65 | 53 74 72 6e 00 00 00 04 |....name|Strn....|
|000003c0| 44 72 61 77 70 61 72 6d | 53 74 72 6e 00 00 00 0d |Drawparm|Strn....|
|000003d0| 67 20 61 73 20 67 72 61 | 70 68 69 63 73 00 00 00 |g as gra|phics...|
|000003e0| 72 73 6c 74 53 74 72 6e | 00 00 00 00 66 6c 61 67 |rsltStrn|....flag|
|000003f0| 49 6e 74 20 00 00 00 00 | 73 6f 72 63 47 72 75 70 |Int ....|sorcGrup|
|00000400| 00 00 01 08 00 00 00 0d | 73 74 73 72 49 6e 74 20 |........|stsrInt |
|00000410| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00000420| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00000430| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00000440| 00 00 00 17 53 75 62 20 | 44 72 61 77 28 67 20 61 |....Sub |Draw(g a|
|00000450| 73 20 67 72 61 70 68 69 | 63 73 29 00 73 72 63 6c |s graphi|cs).srcl|
|00000460| 53 74 72 6e 00 00 00 29 | 67 2e 44 72 61 77 50 69 |Strn...)|g.DrawPi|
|00000470| 63 74 75 72 65 20 67 69 | 61 6e 74 6b 65 79 62 6f |cture gi|antkeybo|
|00000480| 61 72 64 2c 68 6f 72 69 | 7a 53 63 72 6f 6c 6c 2c |ard,hori|zScroll,|
|00000490| 30 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 14 |0...srcl|Strn....|
|000004a0| 69 66 20 74 68 65 4b 65 | 79 49 73 44 6f 77 6e 20 |if theKe|yIsDown |
|000004b0| 74 68 65 6e 73 72 63 6c | 53 74 72 6e 00 00 00 24 |thensrcl|Strn...$|
|000004c0| 67 2e 44 72 61 77 50 69 | 63 74 75 72 65 20 74 68 |g.DrawPi|cture th|
|000004d0| 65 50 69 63 74 75 72 65 | 2c 78 6f 66 66 73 65 74 |ePicture|,xoffset|
|000004e0| 2b 31 2c 30 73 72 63 6c | 53 74 72 6e 00 00 00 06 |+1,0srcl|Strn....|
|000004f0| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00000500| 00 00 00 07 45 6e 64 20 | 53 75 62 00 45 6e 64 47 |....End |Sub.EndG|
|00000510| 49 6e 74 20 00 00 00 0d | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|00000520| 00 00 00 0c 48 49 6e 73 | 47 72 75 70 00 00 00 c0 |....HIns|Grup....|
|00000530| 00 00 00 0e 6e 61 6d 65 | 53 74 72 6e 00 00 00 09 |....name|Strn....|
|00000540| 4d 6f 75 73 65 4d 6f 76 | 65 00 00 00 73 6f 72 63 |MouseMov|e...sorc|
|00000550| 47 72 75 70 00 00 00 8c | 00 00 00 0f 73 74 73 72 |Grup....|....stsr|
|00000560| 49 6e 74 20 00 00 00 01 | 73 74 73 63 49 6e 74 20 |Int ....|stscInt |
|00000570| 00 00 00 00 6e 64 73 72 | 49 6e 74 20 00 00 00 01 |....ndsr|Int ....|
|00000580| 6e 64 73 63 49 6e 74 20 | 00 00 00 00 73 72 63 6c |ndscInt |....srcl|
|00000590| 53 74 72 6e 00 00 00 29 | 53 75 62 20 4d 6f 75 73 |Strn...)|Sub Mous|
|000005a0| 65 4d 6f 76 65 28 58 20 | 41 73 20 49 6e 74 65 67 |eMove(X |As Integ|
|000005b0| 65 72 2c 20 59 20 41 73 | 20 49 6e 74 65 67 65 72 |er, Y As| Integer|
|000005c0| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |)...srcl|Strn....|
|000005d0| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|000005e0| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 0f |Sub.EndG|Int ....|
|000005f0| 45 6e 64 47 49 6e 74 20 | 00 00 00 0e 48 49 6e 73 |EndGInt |....HIns|
|00000600| 47 72 75 70 00 00 00 a4 | 00 00 00 10 6e 61 6d 65 |Grup....|....name|
|00000610| 53 74 72 6e 00 00 00 0a | 4d 6f 75 73 65 45 6e 74 |Strn....|MouseEnt|
|00000620| 65 72 00 00 73 6f 72 63 | 47 72 75 70 00 00 00 70 |er..sorc|Grup...p|
|00000630| 00 00 00 11 73 74 73 72 | 49 6e 74 20 00 00 00 01 |....stsr|Int ....|
|00000640| 73 74 73 63 49 6e 74 20 | 00 00 00 00 6e 64 73 72 |stscInt |....ndsr|
|00000650| 49 6e 74 20 00 00 00 01 | 6e 64 73 63 49 6e 74 20 |Int ....|ndscInt |
|00000660| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |....srcl|Strn....|
|00000670| 53 75 62 20 4d 6f 75 73 | 65 45 6e 74 65 72 28 29 |Sub Mous|eEnter()|
|00000680| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00000690| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|000006a0| 45 6e 64 47 49 6e 74 20 | 00 00 00 11 45 6e 64 47 |EndGInt |....EndG|
|000006b0| 49 6e 74 20 00 00 00 10 | 48 49 6e 73 47 72 75 70 |Int ....|HInsGrup|
|000006c0| 00 00 00 98 00 00 00 12 | 6e 61 6d 65 53 74 72 6e |........|nameStrn|
|000006d0| 00 00 00 04 4f 70 65 6e | 73 6f 72 63 47 72 75 70 |....Open|sorcGrup|
|000006e0| 00 00 00 6c 00 00 00 13 | 73 74 73 72 49 6e 74 20 |...l....|stsrInt |
|000006f0| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 00 |....stsc|Int ....|
|00000700| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00000710| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00000720| 00 00 00 0a 53 75 62 20 | 4f 70 65 6e 28 29 00 00 |....Sub |Open()..|
|00000730| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00000740| 53 74 72 6e 00 00 00 07 | 45 6e 64 20 53 75 62 00 |Strn....|End Sub.|
|00000750| 45 6e 64 47 49 6e 74 20 | 00 00 00 13 45 6e 64 47 |EndGInt |....EndG|
|00000760| 49 6e 74 20 00 00 00 12 | 48 49 6e 73 47 72 75 70 |Int ....|HInsGrup|
|00000770| 00 00 0e ac 00 00 00 14 | 6e 61 6d 65 53 74 72 6e |........|nameStrn|
|00000780| 00 00 00 09 4d 6f 75 73 | 65 44 72 61 67 00 00 00 |....Mous|eDrag...|
|00000790| 73 6f 72 63 47 72 75 70 | 00 00 0e 78 00 00 00 15 |sorcGrup|...x....|
|000007a0| 73 74 73 72 49 6e 74 20 | 00 00 00 36 73 74 73 63 |stsrInt |...6stsc|
|000007b0| 49 6e 74 20 00 00 00 00 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|000007c0| 00 00 00 36 6e 64 73 63 | 49 6e 74 20 00 00 00 00 |...6ndsc|Int ....|
|000007d0| 73 72 63 6c 53 74 72 6e | 00 00 00 29 53 75 62 20 |srclStrn|...)Sub |
|000007e0| 4d 6f 75 73 65 44 72 61 | 67 28 58 20 41 73 20 49 |MouseDra|g(X As I|
|000007f0| 6e 74 65 67 65 72 2c 20 | 59 20 41 73 20 49 6e 74 |nteger, |Y As Int|
|00000800| 65 67 65 72 29 00 00 00 | 73 72 63 6c 53 74 72 6e |eger)...|srclStrn|
|00000810| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 16 |....srcl|Strn....|
|00000820| 64 69 6d 20 64 2c 72 65 | 73 75 6c 74 20 61 73 20 |dim d,re|sult as |
|00000830| 64 6f 75 62 6c 65 00 00 | 73 72 63 6c 53 74 72 6e |double..|srclStrn|
|00000840| 00 00 00 10 64 69 6d 20 | 69 20 61 73 20 69 6e 74 |....dim |i as int|
|00000850| 65 67 65 72 73 72 63 6c | 53 74 72 6e 00 00 00 1a |egersrcl|Strn....|
|00000860| 64 69 6d 20 62 6c 61 63 | 6b 6b 65 79 68 69 74 20 |dim blac|kkeyhit |
|00000870| 61 73 20 62 6f 6f 6c 65 | 61 6e 00 00 73 72 63 6c |as boole|an..srcl|
|00000880| 53 74 72 6e 00 00 00 18 | 64 69 6d 20 74 68 65 4f |Strn....|dim theO|
|00000890| 63 74 61 76 65 20 61 73 | 20 69 6e 74 65 67 65 72 |ctave as| integer|
|000008a0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|000008b0| 53 74 72 6e 00 00 00 2e | 69 66 20 78 3e 3d 30 20 |Strn....|if x>=0 |
|000008c0| 61 6e 64 20 78 3c 3d 6d | 65 2e 77 69 64 74 68 20 |and x<=m|e.width |
|000008d0| 74 68 65 6e 2f 2f 63 72 | 61 73 68 20 70 72 6f 74 |then//cr|ash prot|
|000008e0| 65 63 74 69 6f 6e 00 00 | 73 72 63 6c 53 74 72 6e |ection..|srclStrn|
|000008f0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 13 |....srcl|Strn....|
|00000900| 62 6c 61 63 6b 6b 65 79 | 68 69 74 20 3d 20 66 61 |blackkey|hit = fa|
|00000910| 6c 73 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |lse.srcl|Strn....|
|00000920| 73 72 63 6c 53 74 72 6e | 00 00 00 18 2f 2f 63 61 |srclStrn|....//ca|
|00000930| 6c 63 75 6c 61 74 65 20 | 77 68 69 63 68 20 6f 63 |lculate |which oc|
|00000940| 74 61 76 65 73 72 63 6c | 53 74 72 6e 00 00 00 19 |tavesrcl|Strn....|
|00000950| 64 20 3d 20 28 28 78 2d | 68 6f 72 69 7a 53 63 72 |d = ((x-|horizScr|
|00000960| 6f 6c 6c 29 2f 32 34 35 | 29 00 00 00 73 72 63 6c |oll)/245|)...srcl|
|00000970| 53 74 72 6e 00 00 00 10 | 72 65 73 75 6c 74 20 3d |Strn....|result =|
|00000980| 20 63 65 69 6c 28 64 29 | 73 72 63 6c 53 74 72 6e | ceil(d)|srclStrn|
|00000990| 00 00 00 0a 69 3d 72 65 | 73 75 6c 74 2d 31 00 00 |....i=re|sult-1..|
|000009a0| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 74 68 65 4f |srclStrn|....theO|
|000009b0| 63 74 61 76 65 3d 69 00 | 73 72 63 6c 53 74 72 6e |ctave=i.|srclStrn|
|000009c0| 00 00 00 25 64 20 3d 20 | 28 78 2d 68 6f 72 69 7a |...%d = |(x-horiz|
|000009d0| 53 63 72 6f 6c 6c 29 20 | 2d 20 28 74 68 65 4f 63 |Scroll) |- (theOc|
|000009e0| 74 61 76 65 2a 32 34 35 | 29 00 00 00 73 72 63 6c |tave*245|)...srcl|
|000009f0| 53 74 72 6e 00 00 00 11 | 74 68 65 4b 65 79 49 73 |Strn....|theKeyIs|
|00000a00| 44 6f 77 6e 3d 74 72 75 | 65 00 00 00 73 72 63 6c |Down=tru|e...srcl|
|00000a10| 53 74 72 6e 00 00 00 2b | 78 6f 66 66 73 65 74 20 |Strn...+|xoffset |
|00000a20| 3d 20 28 74 68 65 4f 63 | 74 61 76 65 2a 32 34 35 |= (theOc|tave*245|
|00000a30| 29 20 2d 20 28 30 2d 68 | 6f 72 69 7a 53 63 72 6f |) - (0-h|orizScro|
|00000a40| 6c 6c 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ll).srcl|Strn....|
|00000a50| 73 72 63 6c 53 74 72 6e | 00 00 00 20 2f 2f 2a 2a |srclStrn|... //**|
|00000a60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 73 72 63 6c |********|****srcl|
|00000a80| 53 74 72 6e 00 00 00 10 | 2f 2f 20 20 20 62 6c 61 |Strn....|//   bla|
|00000a90| 63 6b 20 6b 65 79 20 3f | 73 72 63 6c 53 74 72 6e |ck key ?|srclStrn|
|00000aa0| 00 00 00 20 2f 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |... //**|********|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 2a 73 72 63 6c | 53 74 72 6e 00 00 00 17 |****srcl|Strn....|
|00000ad0| 69 66 20 64 3e 3d 32 34 | 20 61 6e 64 20 64 3c 3d |if d>=24| and d<=|
|00000ae0| 34 35 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |45 then.|srclStrn|
|00000af0| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00000b00| 74 65 3d 31 73 72 63 6c | 53 74 72 6e 00 00 00 17 |te=1srcl|Strn....|
|00000b10| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 63 73 68 |thePictu|re = csh|
|00000b20| 61 72 70 64 6f 77 6e 00 | 73 72 63 6c 53 74 72 6e |arpdown.|srclStrn|
|00000b30| 00 00 00 12 62 6c 61 63 | 6b 6b 65 79 68 69 74 20 |....blac|kkeyhit |
|00000b40| 3d 20 74 72 75 65 00 00 | 73 72 63 6c 53 74 72 6e |= true..|srclStrn|
|00000b50| 00 00 00 1b 65 6c 73 65 | 69 66 20 64 3e 3d 35 39 |....else|if d>=59|
|00000b60| 20 61 6e 64 20 64 3c 3d | 38 30 20 74 68 65 6e 00 | and d<=|80 then.|
|00000b70| 73 72 63 6c 53 74 72 6e | 00 00 00 10 74 68 65 43 |srclStrn|....theC|
|00000b80| 75 72 72 65 6e 74 4e 6f | 74 65 3d 33 73 72 63 6c |urrentNo|te=3srcl|
|00000b90| 53 74 72 6e 00 00 00 17 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00000ba0| 72 65 20 3d 20 64 73 68 | 61 72 70 64 6f 77 6e 00 |re = dsh|arpdown.|
|00000bb0| 73 72 63 6c 53 74 72 6e | 00 00 00 12 62 6c 61 63 |srclStrn|....blac|
|00000bc0| 6b 6b 65 79 68 69 74 20 | 3d 20 74 72 75 65 00 00 |kkeyhit |= true..|
|00000bd0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 65 6c 73 65 |srclStrn|....else|
|00000be0| 69 66 20 64 3e 3d 31 32 | 39 20 61 6e 64 20 64 3c |if d>=12|9 and d<|
|00000bf0| 3d 31 35 30 20 74 68 65 | 6e 00 00 00 73 72 63 6c |=150 the|n...srcl|
|00000c00| 53 74 72 6e 00 00 00 10 | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00000c10| 6e 74 4e 6f 74 65 3d 36 | 73 72 63 6c 53 74 72 6e |ntNote=6|srclStrn|
|00000c20| 00 00 00 17 74 68 65 50 | 69 63 74 75 72 65 20 3d |....theP|icture =|
|00000c30| 20 66 73 68 61 72 70 64 | 6f 77 6e 00 73 72 63 6c | fsharpd|own.srcl|
|00000c40| 53 74 72 6e 00 00 00 12 | 62 6c 61 63 6b 6b 65 79 |Strn....|blackkey|
|00000c50| 68 69 74 20 3d 20 74 72 | 75 65 00 00 73 72 63 6c |hit = tr|ue..srcl|
|00000c60| 53 74 72 6e 00 00 00 1d | 65 6c 73 65 69 66 20 64 |Strn....|elseif d|
|00000c70| 3e 3d 31 36 34 20 61 6e | 64 20 64 3c 3d 31 38 35 |>=164 an|d d<=185|
|00000c80| 20 74 68 65 6e 00 00 00 | 73 72 63 6c 53 74 72 6e | then...|srclStrn|
|00000c90| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00000ca0| 74 65 3d 38 73 72 63 6c | 53 74 72 6e 00 00 00 17 |te=8srcl|Strn....|
|00000cb0| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 67 73 68 |thePictu|re = gsh|
|00000cc0| 61 72 70 64 6f 77 6e 00 | 73 72 63 6c 53 74 72 6e |arpdown.|srclStrn|
|00000cd0| 00 00 00 12 62 6c 61 63 | 6b 6b 65 79 68 69 74 20 |....blac|kkeyhit |
|00000ce0| 3d 20 74 72 75 65 00 00 | 73 72 63 6c 53 74 72 6e |= true..|srclStrn|
|00000cf0| 00 00 00 1d 65 6c 73 65 | 69 66 20 64 3e 3d 31 39 |....else|if d>=19|
|00000d00| 39 20 61 6e 64 20 64 3c | 3d 32 32 30 20 74 68 65 |9 and d<|=220 the|
|00000d10| 6e 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 11 |n...srcl|Strn....|
|00000d20| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 3d 31 |theCurre|ntNote=1|
|00000d30| 30 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 17 |0...srcl|Strn....|
|00000d40| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 61 73 68 |thePictu|re = ash|
|00000d50| 61 72 70 64 6f 77 6e 00 | 73 72 63 6c 53 74 72 6e |arpdown.|srclStrn|
|00000d60| 00 00 00 12 62 6c 61 63 | 6b 6b 65 79 68 69 74 20 |....blac|kkeyhit |
|00000d70| 3d 20 74 72 75 65 00 00 | 73 72 63 6c 53 74 72 6e |= true..|srclStrn|
|00000d80| 00 00 00 06 65 6e 64 20 | 69 66 00 00 73 72 63 6c |....end |if..srcl|
|00000d90| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|00000da0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1c |....srcl|Strn....|
|00000db0| 69 66 20 79 3c 35 31 20 | 61 6e 64 20 62 6c 61 63 |if y<51 |and blac|
|00000dc0| 6b 6b 65 79 68 69 74 20 | 74 68 65 6e 73 72 63 6c |kkeyhit |thensrcl|
|00000dd0| 53 74 72 6e 00 00 00 20 | 2f 2f 2a 2a 2a 2a 2a 2a |Strn... |//******|
|00000de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000df0| 2a 2a 2a 2a 2a 2a 2a 2a | 73 72 63 6c 53 74 72 6e |********|srclStrn|
|00000e00| 00 00 00 1c 2f 2f 20 20 | 20 70 6c 61 79 20 61 6e |....//  | play an|
|00000e10| 64 20 64 72 61 77 20 62 | 6c 61 63 6b 20 6b 65 79 |d draw b|lack key|
|00000e20| 73 72 63 6c 53 74 72 6e | 00 00 00 20 2f 2f 2a 2a |srclStrn|... //**|
|00000e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 73 72 63 6c |********|****srcl|
|00000e50| 53 74 72 6e 00 00 00 2e | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00000e60| 6e 74 4e 6f 74 65 20 3d | 20 28 74 68 65 4f 63 74 |ntNote =| (theOct|
|00000e70| 61 76 65 2a 31 32 29 2b | 74 68 65 43 75 72 72 65 |ave*12)+|theCurre|
|00000e80| 6e 74 4e 6f 74 65 00 00 | 73 72 63 6c 53 74 72 6e |ntNote..|srclStrn|
|00000e90| 00 00 00 23 69 66 20 74 | 68 65 43 75 72 72 65 6e |...#if t|heCurren|
|00000ea0| 74 4e 6f 74 65 3c 3e 74 | 68 65 4c 61 73 74 4e 6f |tNote<>t|heLastNo|
|00000eb0| 74 65 20 74 68 65 6e 00 | 73 72 63 6c 53 74 72 6e |te then.|srclStrn|
|00000ec0| 00 00 00 2b 74 68 65 50 | 6c 61 79 65 72 2e 70 6c |...+theP|layer.pl|
|00000ed0| 61 79 4e 6f 74 65 20 74 | 68 65 43 75 72 72 65 6e |ayNote t|heCurren|
|00000ee0| 74 4e 6f 74 65 2c 74 68 | 65 56 6f 6c 75 6d 65 00 |tNote,th|eVolume.|
|00000ef0| 73 72 63 6c 53 74 72 6e | 00 00 00 20 74 68 65 50 |srclStrn|... theP|
|00000f00| 6c 61 79 65 72 2e 70 6c | 61 79 4e 6f 74 65 20 74 |layer.pl|ayNote t|
|00000f10| 68 65 4c 61 73 74 4e 6f | 74 65 2c 30 73 72 63 6c |heLastNo|te,0srcl|
|00000f20| 53 74 72 6e 00 00 00 13 | 6d 65 2e 44 72 61 77 20 |Strn....|me.Draw |
|00000f30| 6d 65 2e 67 72 61 70 68 | 69 63 73 00 73 72 63 6c |me.graph|ics.srcl|
|00000f40| 53 74 72 6e 00 00 00 1a | 74 68 65 4c 61 73 74 4e |Strn....|theLastN|
|00000f50| 6f 74 65 3d 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |ote=theC|urrentNo|
|00000f60| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |te..srcl|Strn....|
|00000f70| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00000f80| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |....srcl|Strn....|
|00000f90| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 20 |elsesrcl|Strn... |
|00000fa0| 2f 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |//******|********|
|00000fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000fc0| 73 72 63 6c 53 74 72 6e | 00 00 00 1c 2f 2f 20 20 |srclStrn|....//  |
|00000fd0| 20 70 6c 61 79 20 61 6e | 64 20 64 72 61 77 20 77 | play an|d draw w|
|00000fe0| 68 69 74 65 20 6b 65 79 | 73 72 63 6c 53 74 72 6e |hite key|srclStrn|
|00000ff0| 00 00 00 20 2f 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |... //**|********|
|00001000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001010| 2a 2a 2a 2a 73 72 63 6c | 53 74 72 6e 00 00 00 18 |****srcl|Strn....|
|00001020| 2f 2f 63 61 6c 63 75 6c | 61 74 65 20 77 68 69 63 |//calcul|ate whic|
|00001030| 68 20 6f 63 74 61 76 65 | 73 72 63 6c 53 74 72 6e |h octave|srclStrn|
|00001040| 00 00 00 19 64 20 3d 20 | 28 28 78 2d 68 6f 72 69 |....d = |((x-hori|
|00001050| 7a 53 63 72 6f 6c 6c 29 | 2f 32 34 35 29 00 00 00 |zScroll)|/245)...|
|00001060| 73 72 63 6c 53 74 72 6e | 00 00 00 10 72 65 73 75 |srclStrn|....resu|
|00001070| 6c 74 20 3d 20 63 65 69 | 6c 28 64 29 73 72 63 6c |lt = cei|l(d)srcl|
|00001080| 53 74 72 6e 00 00 00 0a | 69 3d 72 65 73 75 6c 74 |Strn....|i=result|
|00001090| 2d 31 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0b |-1..srcl|Strn....|
|000010a0| 74 68 65 4f 63 74 61 76 | 65 3d 69 00 73 72 63 6c |theOctav|e=i.srcl|
|000010b0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|000010c0| 00 00 00 33 2f 2f 63 61 | 6c 63 75 6c 61 74 65 20 |...3//ca|lculate |
|000010d0| 77 68 69 63 68 20 77 68 | 69 74 65 20 6b 65 79 20 |which wh|ite key |
|000010e0| 69 6e 20 74 68 65 20 6f | 63 74 61 76 65 20 28 6b |in the o|ctave (k|
|000010f0| 65 79 23 31 2d 37 29 00 | 73 72 63 6c 53 74 72 6e |ey#1-7).|srclStrn|
|00001100| 00 00 00 23 64 20 3d 20 | 28 78 2d 68 6f 72 69 7a |...#d = |(x-horiz|
|00001110| 53 63 72 6f 6c 6c 29 20 | 2d 20 74 68 65 4f 63 74 |Scroll) |- theOct|
|00001120| 61 76 65 2a 32 34 35 00 | 73 72 63 6c 53 74 72 6e |ave*245.|srclStrn|
|00001130| 00 00 00 08 64 20 3d 20 | 64 2f 33 35 73 72 63 6c |....d = |d/35srcl|
|00001140| 53 74 72 6e 00 00 00 10 | 72 65 73 75 6c 74 20 3d |Strn....|result =|
|00001150| 20 63 65 69 6c 28 64 29 | 73 72 63 6c 53 74 72 6e | ceil(d)|srclStrn|
|00001160| 00 00 00 08 69 3d 72 65 | 73 75 6c 74 73 72 63 6c |....i=re|sultsrcl|
|00001170| 53 74 72 6e 00 00 00 11 | 74 68 65 4b 65 79 49 73 |Strn....|theKeyIs|
|00001180| 44 6f 77 6e 3d 74 72 75 | 65 00 00 00 73 72 63 6c |Down=tru|e...srcl|
|00001190| 53 74 72 6e 00 00 00 2b | 78 6f 66 66 73 65 74 20 |Strn...+|xoffset |
|000011a0| 3d 20 28 74 68 65 4f 63 | 74 61 76 65 2a 32 34 35 |= (theOc|tave*245|
|000011b0| 29 20 2d 20 28 30 2d 68 | 6f 72 69 7a 53 63 72 6f |) - (0-h|orizScro|
|000011c0| 6c 6c 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ll).srcl|Strn....|
|000011d0| 73 72 63 6c 53 74 72 6e | 00 00 00 0d 73 65 6c 65 |srclStrn|....sele|
|000011e0| 63 74 20 63 61 73 65 20 | 69 00 00 00 73 72 63 6c |ct case |i...srcl|
|000011f0| 53 74 72 6e 00 00 00 09 | 63 61 73 65 20 31 2f 2f |Strn....|case 1//|
|00001200| 63 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |c...srcl|Strn....|
|00001210| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 3d 30 |theCurre|ntNote=0|
|00001220| 73 72 63 6c 53 74 72 6e | 00 00 00 12 74 68 65 50 |srclStrn|....theP|
|00001230| 69 63 74 75 72 65 20 3d | 20 63 64 6f 77 6e 00 00 |icture =| cdown..|
|00001240| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|00001250| 20 32 2f 2f 64 00 00 00 | 73 72 63 6c 53 74 72 6e | 2//d...|srclStrn|
|00001260| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00001270| 74 65 3d 32 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=2srcl|Strn....|
|00001280| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 64 64 6f |thePictu|re = ddo|
|00001290| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |wn..srcl|Strn....|
|000012a0| 63 61 73 65 20 33 2f 2f | 65 00 00 00 73 72 63 6c |case 3//|e...srcl|
|000012b0| 53 74 72 6e 00 00 00 10 | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|000012c0| 6e 74 4e 6f 74 65 3d 34 | 73 72 63 6c 53 74 72 6e |ntNote=4|srclStrn|
|000012d0| 00 00 00 12 74 68 65 50 | 69 63 74 75 72 65 20 3d |....theP|icture =|
|000012e0| 20 65 64 6f 77 6e 00 00 | 73 72 63 6c 53 74 72 6e | edown..|srclStrn|
|000012f0| 00 00 00 09 63 61 73 65 | 20 34 2f 2f 66 00 00 00 |....case| 4//f...|
|00001300| 73 72 63 6c 53 74 72 6e | 00 00 00 10 74 68 65 43 |srclStrn|....theC|
|00001310| 75 72 72 65 6e 74 4e 6f | 74 65 3d 35 73 72 63 6c |urrentNo|te=5srcl|
|00001320| 53 74 72 6e 00 00 00 12 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00001330| 72 65 20 3d 20 66 64 6f | 77 6e 00 00 73 72 63 6c |re = fdo|wn..srcl|
|00001340| 53 74 72 6e 00 00 00 09 | 63 61 73 65 20 35 2f 2f |Strn....|case 5//|
|00001350| 67 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |g...srcl|Strn....|
|00001360| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 3d 37 |theCurre|ntNote=7|
|00001370| 73 72 63 6c 53 74 72 6e | 00 00 00 12 74 68 65 50 |srclStrn|....theP|
|00001380| 69 63 74 75 72 65 20 3d | 20 67 64 6f 77 6e 00 00 |icture =| gdown..|
|00001390| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|000013a0| 20 36 2f 2f 61 00 00 00 | 73 72 63 6c 53 74 72 6e | 6//a...|srclStrn|
|000013b0| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|000013c0| 74 65 3d 39 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=9srcl|Strn....|
|000013d0| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 61 64 6f |thePictu|re = ado|
|000013e0| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 09 |wn..srcl|Strn....|
|000013f0| 63 61 73 65 20 37 2f 2f | 62 00 00 00 73 72 63 6c |case 7//|b...srcl|
|00001400| 53 74 72 6e 00 00 00 11 | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00001410| 6e 74 4e 6f 74 65 3d 31 | 31 00 00 00 73 72 63 6c |ntNote=1|1...srcl|
|00001420| 53 74 72 6e 00 00 00 12 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00001430| 72 65 20 3d 20 62 64 6f | 77 6e 00 00 73 72 63 6c |re = bdo|wn..srcl|
|00001440| 53 74 72 6e 00 00 00 0a | 65 6e 64 20 73 65 6c 65 |Strn....|end sele|
|00001450| 63 74 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |ct..srcl|Strn....|
|00001460| 73 72 63 6c 53 74 72 6e | 00 00 00 2e 74 68 65 43 |srclStrn|....theC|
|00001470| 75 72 72 65 6e 74 4e 6f | 74 65 20 3d 20 28 74 68 |urrentNo|te = (th|
|00001480| 65 4f 63 74 61 76 65 2a | 31 32 29 2b 74 68 65 43 |eOctave*|12)+theC|
|00001490| 75 72 72 65 6e 74 4e 6f | 74 65 00 00 73 72 63 6c |urrentNo|te..srcl|
|000014a0| 53 74 72 6e 00 00 00 23 | 69 66 20 74 68 65 43 75 |Strn...#|if theCu|
|000014b0| 72 72 65 6e 74 4e 6f 74 | 65 3c 3e 74 68 65 4c 61 |rrentNot|e<>theLa|
|000014c0| 73 74 4e 6f 74 65 20 74 | 68 65 6e 00 73 72 63 6c |stNote t|hen.srcl|
|000014d0| 53 74 72 6e 00 00 00 2b | 74 68 65 50 6c 61 79 65 |Strn...+|thePlaye|
|000014e0| 72 2e 70 6c 61 79 4e 6f | 74 65 20 74 68 65 43 75 |r.playNo|te theCu|
|000014f0| 72 72 65 6e 74 4e 6f 74 | 65 2c 74 68 65 56 6f 6c |rrentNot|e,theVol|
|00001500| 75 6d 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 20 |ume.srcl|Strn... |
|00001510| 74 68 65 50 6c 61 79 65 | 72 2e 70 6c 61 79 4e 6f |thePlaye|r.playNo|
|00001520| 74 65 20 74 68 65 4c 61 | 73 74 4e 6f 74 65 2c 30 |te theLa|stNote,0|
|00001530| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 72 61 77 |srclStrn|....Draw|
|00001540| 20 6d 65 2e 67 72 61 70 | 68 69 63 73 73 72 63 6c | me.grap|hicssrcl|
|00001550| 53 74 72 6e 00 00 00 1a | 74 68 65 4c 61 73 74 4e |Strn....|theLastN|
|00001560| 6f 74 65 3d 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |ote=theC|urrentNo|
|00001570| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |te..srcl|Strn....|
|00001580| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00001590| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 21 |....srcl|Strn...!|
|000015a0| 65 6e 64 20 69 66 2f 2f | 79 3c 35 31 20 61 6e 64 |end if//|y<51 and|
|000015b0| 20 62 6c 61 63 6b 6b 65 | 79 68 69 74 20 74 68 65 | blackke|yhit the|
|000015c0| 6e 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |n...srcl|Strn....|
|000015d0| 73 72 63 6c 53 74 72 6e | 00 00 00 18 65 6e 64 20 |srclStrn|....end |
|000015e0| 69 66 2f 2f 63 72 61 73 | 68 20 70 72 6f 74 65 63 |if//cras|h protec|
|000015f0| 74 69 6f 6e 73 72 63 6c | 53 74 72 6e 00 00 00 00 |tionsrcl|Strn....|
|00001600| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00001610| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 15 |Sub.EndG|Int ....|
|00001620| 45 6e 64 47 49 6e 74 20 | 00 00 00 14 48 49 6e 73 |EndGInt |....HIns|
|00001630| 47 72 75 70 00 00 02 1c | 00 00 00 16 6e 61 6d 65 |Grup....|....name|
|00001640| 53 74 72 6e 00 00 00 07 | 4d 6f 75 73 65 55 70 00 |Strn....|MouseUp.|
|00001650| 73 6f 72 63 47 72 75 70 | 00 00 01 ec 00 00 00 17 |sorcGrup|........|
|00001660| 73 74 73 72 49 6e 74 20 | 00 00 00 0a 73 74 73 63 |stsrInt |....stsc|
|00001670| 49 6e 74 20 00 00 00 02 | 6e 64 73 72 49 6e 74 20 |Int ....|ndsrInt |
|00001680| 00 00 00 0a 6e 64 73 63 | 49 6e 74 20 00 00 00 09 |....ndsc|Int ....|
|00001690| 73 72 63 6c 53 74 72 6e | 00 00 00 27 53 75 62 20 |srclStrn|...'Sub |
|000016a0| 4d 6f 75 73 65 55 70 28 | 58 20 41 73 20 49 6e 74 |MouseUp(|X As Int|
|000016b0| 65 67 65 72 2c 20 59 20 | 41 73 20 49 6e 74 65 67 |eger, Y |As Integ|
|000016c0| 65 72 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |er).srcl|Strn....|
|000016d0| 73 72 63 6c 53 74 72 6e | 00 00 00 16 64 69 6d 20 |srclStrn|....dim |
|000016e0| 74 68 65 6e 6f 74 65 20 | 61 73 20 69 6e 74 65 67 |thenote |as integ|
|000016f0| 65 72 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 00 |er..srcl|Strn....|
|00001700| 73 72 63 6c 53 74 72 6e | 00 00 00 17 2f 2f 73 74 |srclStrn|....//st|
|00001710| 6f 70 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6e |op the c|urrent n|
|00001720| 6f 74 65 00 73 72 63 6c | 53 74 72 6e 00 00 00 23 |ote.srcl|Strn...#|
|00001730| 74 68 65 50 6c 61 79 65 | 72 2e 70 6c 61 79 4e 6f |thePlaye|r.playNo|
|00001740| 74 65 20 74 68 65 43 75 | 72 72 65 6e 74 4e 6f 74 |te theCu|rrentNot|
|00001750| 65 2c 30 00 73 72 63 6c | 53 74 72 6e 00 00 00 16 |e,0.srcl|Strn....|
|00001760| 74 68 65 6e 6f 74 65 3d | 74 68 65 43 75 72 72 65 |thenote=|theCurre|
|00001770| 6e 74 4e 6f 74 65 00 00 | 73 72 63 6c 53 74 72 6e |ntNote..|srclStrn|
|00001780| 00 00 00 11 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00001790| 74 65 3d 2d 31 00 00 00 | 73 72 63 6c 53 74 72 6e |te=-1...|srclStrn|
|000017a0| 00 00 00 12 74 68 65 4b | 65 79 49 73 44 6f 77 6e |....theK|eyIsDown|
|000017b0| 3d 66 61 6c 73 65 00 00 | 73 72 63 6c 53 74 72 6e |=false..|srclStrn|
|000017c0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 1c |....srcl|Strn....|
|000017d0| 2f 2f 72 65 66 72 65 73 | 68 20 74 68 65 20 6b 65 |//refres|h the ke|
|000017e0| 79 62 6f 61 72 64 20 69 | 6d 61 67 65 73 72 63 6c |yboard i|magesrcl|
|000017f0| 53 74 72 6e 00 00 00 13 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00001800| 72 65 20 3d 20 6f 6e 65 | 6f 63 74 00 73 72 63 6c |re = one|oct.srcl|
|00001810| 53 74 72 6e 00 00 00 10 | 44 72 61 77 20 6d 65 2e |Strn....|Draw me.|
|00001820| 67 72 61 70 68 69 63 73 | 73 72 63 6c 53 74 72 6e |graphics|srclStrn|
|00001830| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 07 |....srcl|Strn....|
|00001840| 45 6e 64 20 53 75 62 00 | 45 6e 64 47 49 6e 74 20 |End Sub.|EndGInt |
|00001850| 00 00 00 17 45 6e 64 47 | 49 6e 74 20 00 00 00 16 |....EndG|Int ....|
|00001860| 48 49 6e 73 47 72 75 70 | 00 00 0d 5c 00 00 00 18 |HInsGrup|...\....|
|00001870| 6e 61 6d 65 53 74 72 6e | 00 00 00 09 4d 6f 75 73 |nameStrn|....Mous|
|00001880| 65 44 6f 77 6e 00 00 00 | 73 6f 72 63 47 72 75 70 |eDown...|sorcGrup|
|00001890| 00 00 0d 28 00 00 00 19 | 73 74 73 72 49 6e 74 20 |...(....|stsrInt |
|000018a0| 00 00 00 64 73 74 73 63 | 49 6e 74 20 00 00 00 00 |...dstsc|Int ....|
|000018b0| 6e 64 73 72 49 6e 74 20 | 00 00 00 64 6e 64 73 63 |ndsrInt |...dndsc|
|000018c0| 49 6e 74 20 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|000018d0| 00 00 00 39 46 75 6e 63 | 74 69 6f 6e 20 4d 6f 75 |...9Func|tion Mou|
|000018e0| 73 65 44 6f 77 6e 28 58 | 20 41 73 20 49 6e 74 65 |seDown(X| As Inte|
|000018f0| 67 65 72 2c 20 59 20 41 | 73 20 49 6e 74 65 67 65 |ger, Y A|s Intege|
|00001900| 72 29 20 41 73 20 42 6f | 6f 6c 65 61 6e 00 00 00 |r) As Bo|olean...|
|00001910| 73 72 63 6c 53 74 72 6e | 00 00 00 16 64 69 6d 20 |srclStrn|....dim |
|00001920| 64 2c 72 65 73 75 6c 74 | 20 61 73 20 64 6f 75 62 |d,result| as doub|
|00001930| 6c 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |le..srcl|Strn....|
|00001940| 64 69 6d 20 69 20 61 73 | 20 69 6e 74 65 67 65 72 |dim i as| integer|
|00001950| 73 72 63 6c 53 74 72 6e | 00 00 00 19 64 69 6d 20 |srclStrn|....dim |
|00001960| 74 68 65 4f 63 74 61 76 | 65 20 61 73 20 69 6e 74 |theOctav|e as int|
|00001970| 65 67 65 72 20 00 00 00 | 73 72 63 6c 53 74 72 6e |eger ...|srclStrn|
|00001980| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 29 |....srcl|Strn...)|
|00001990| 69 66 20 6d 65 2e 67 72 | 61 70 68 69 63 73 2e 70 |if me.gr|aphics.p|
|000019a0| 69 78 65 6c 28 78 2c 79 | 29 3d 72 67 62 28 30 2c |ixel(x,y|)=rgb(0,|
|000019b0| 30 2c 30 29 20 74 68 65 | 6e 00 00 00 73 72 63 6c |0,0) the|n...srcl|
|000019c0| 53 74 72 6e 00 00 00 20 | 2f 2f 2a 2a 2a 2a 2a 2a |Strn... |//******|
|000019d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019e0| 2a 2a 2a 2a 2a 2a 2a 2a | 73 72 63 6c 53 74 72 6e |********|srclStrn|
|000019f0| 00 00 00 0f 2f 2f 20 20 | 20 62 6c 61 63 6b 20 6b |....//  | black k|
|00001a00| 65 79 73 00 73 72 63 6c | 53 74 72 6e 00 00 00 20 |eys.srcl|Strn... |
|00001a10| 2f 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |//******|********|
|00001a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a30| 73 72 63 6c 53 74 72 6e | 00 00 00 18 2f 2f 63 61 |srclStrn|....//ca|
|00001a40| 6c 63 75 6c 61 74 65 20 | 77 68 69 63 68 20 6f 63 |lculate |which oc|
|00001a50| 74 61 76 65 73 72 63 6c | 53 74 72 6e 00 00 00 19 |tavesrcl|Strn....|
|00001a60| 64 20 3d 20 28 28 78 2d | 68 6f 72 69 7a 53 63 72 |d = ((x-|horizScr|
|00001a70| 6f 6c 6c 29 2f 32 34 35 | 29 00 00 00 73 72 63 6c |oll)/245|)...srcl|
|00001a80| 53 74 72 6e 00 00 00 10 | 72 65 73 75 6c 74 20 3d |Strn....|result =|
|00001a90| 20 63 65 69 6c 28 64 29 | 73 72 63 6c 53 74 72 6e | ceil(d)|srclStrn|
|00001aa0| 00 00 00 0a 69 3d 72 65 | 73 75 6c 74 2d 31 00 00 |....i=re|sult-1..|
|00001ab0| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 74 68 65 4f |srclStrn|....theO|
|00001ac0| 63 74 61 76 65 3d 69 00 | 73 72 63 6c 53 74 72 6e |ctave=i.|srclStrn|
|00001ad0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 33 |....srcl|Strn...3|
|00001ae0| 2f 2f 63 61 6c 63 75 6c | 61 74 65 20 77 68 69 63 |//calcul|ate whic|
|00001af0| 68 20 62 6c 61 63 6b 20 | 6b 65 79 20 69 6e 20 74 |h black |key in t|
|00001b00| 68 65 20 6f 63 74 61 76 | 65 20 28 6b 65 79 23 31 |he octav|e (key#1|
|00001b10| 2d 35 29 00 73 72 63 6c | 53 74 72 6e 00 00 00 25 |-5).srcl|Strn...%|
|00001b20| 64 20 3d 20 28 78 2d 68 | 6f 72 69 7a 53 63 72 6f |d = (x-h|orizScro|
|00001b30| 6c 6c 29 20 2d 20 28 74 | 68 65 4f 63 74 61 76 65 |ll) - (t|heOctave|
|00001b40| 2a 32 34 35 29 00 00 00 | 73 72 63 6c 53 74 72 6e |*245)...|srclStrn|
|00001b50| 00 00 00 11 74 68 65 4b | 65 79 49 73 44 6f 77 6e |....theK|eyIsDown|
|00001b60| 3d 74 72 75 65 00 00 00 | 73 72 63 6c 53 74 72 6e |=true...|srclStrn|
|00001b70| 00 00 00 2b 78 6f 66 66 | 73 65 74 20 3d 20 28 74 |...+xoff|set = (t|
|00001b80| 68 65 4f 63 74 61 76 65 | 2a 32 34 35 29 20 2d 20 |heOctave|*245) - |
|00001b90| 28 30 2d 68 6f 72 69 7a | 53 63 72 6f 6c 6c 29 00 |(0-horiz|Scroll).|
|00001ba0| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001bb0| 53 74 72 6e 00 00 00 17 | 69 66 20 64 3e 3d 32 34 |Strn....|if d>=24|
|00001bc0| 20 61 6e 64 20 64 3c 3d | 34 35 20 74 68 65 6e 00 | and d<=|45 then.|
|00001bd0| 73 72 63 6c 53 74 72 6e | 00 00 00 10 74 68 65 43 |srclStrn|....theC|
|00001be0| 75 72 72 65 6e 74 4e 6f | 74 65 3d 31 73 72 63 6c |urrentNo|te=1srcl|
|00001bf0| 53 74 72 6e 00 00 00 17 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00001c00| 72 65 20 3d 20 63 73 68 | 61 72 70 64 6f 77 6e 00 |re = csh|arpdown.|
|00001c10| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 72 61 77 |srclStrn|....Draw|
|00001c20| 20 6d 65 2e 67 72 61 70 | 68 69 63 73 73 72 63 6c | me.grap|hicssrcl|
|00001c30| 53 74 72 6e 00 00 00 1b | 65 6c 73 65 69 66 20 64 |Strn....|elseif d|
|00001c40| 3e 3d 35 39 20 61 6e 64 | 20 64 3c 3d 38 30 20 74 |>=59 and| d<=80 t|
|00001c50| 68 65 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |hen.srcl|Strn....|
|00001c60| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 3d 33 |theCurre|ntNote=3|
|00001c70| 73 72 63 6c 53 74 72 6e | 00 00 00 17 74 68 65 50 |srclStrn|....theP|
|00001c80| 69 63 74 75 72 65 20 3d | 20 64 73 68 61 72 70 64 |icture =| dsharpd|
|00001c90| 6f 77 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |own.srcl|Strn....|
|00001ca0| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00001cb0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 65 6c 73 65 |srclStrn|....else|
|00001cc0| 69 66 20 64 3e 3d 31 32 | 39 20 61 6e 64 20 64 3c |if d>=12|9 and d<|
|00001cd0| 3d 31 35 30 20 74 68 65 | 6e 00 00 00 73 72 63 6c |=150 the|n...srcl|
|00001ce0| 53 74 72 6e 00 00 00 10 | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00001cf0| 6e 74 4e 6f 74 65 3d 36 | 73 72 63 6c 53 74 72 6e |ntNote=6|srclStrn|
|00001d00| 00 00 00 17 74 68 65 50 | 69 63 74 75 72 65 20 3d |....theP|icture =|
|00001d10| 20 66 73 68 61 72 70 64 | 6f 77 6e 00 73 72 63 6c | fsharpd|own.srcl|
|00001d20| 53 74 72 6e 00 00 00 10 | 44 72 61 77 20 6d 65 2e |Strn....|Draw me.|
|00001d30| 67 72 61 70 68 69 63 73 | 73 72 63 6c 53 74 72 6e |graphics|srclStrn|
|00001d40| 00 00 00 1d 65 6c 73 65 | 69 66 20 64 3e 3d 31 36 |....else|if d>=16|
|00001d50| 34 20 61 6e 64 20 64 3c | 3d 31 38 35 20 74 68 65 |4 and d<|=185 the|
|00001d60| 6e 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |n...srcl|Strn....|
|00001d70| 74 68 65 43 75 72 72 65 | 6e 74 4e 6f 74 65 3d 38 |theCurre|ntNote=8|
|00001d80| 73 72 63 6c 53 74 72 6e | 00 00 00 17 74 68 65 50 |srclStrn|....theP|
|00001d90| 69 63 74 75 72 65 20 3d | 20 67 73 68 61 72 70 64 |icture =| gsharpd|
|00001da0| 6f 77 6e 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |own.srcl|Strn....|
|00001db0| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00001dc0| 73 72 63 6c 53 74 72 6e | 00 00 00 1d 65 6c 73 65 |srclStrn|....else|
|00001dd0| 69 66 20 64 3e 3d 31 39 | 39 20 61 6e 64 20 64 3c |if d>=19|9 and d<|
|00001de0| 3d 32 32 30 20 74 68 65 | 6e 00 00 00 73 72 63 6c |=220 the|n...srcl|
|00001df0| 53 74 72 6e 00 00 00 11 | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00001e00| 6e 74 4e 6f 74 65 3d 31 | 30 00 00 00 73 72 63 6c |ntNote=1|0...srcl|
|00001e10| 53 74 72 6e 00 00 00 17 | 74 68 65 50 69 63 74 75 |Strn....|thePictu|
|00001e20| 72 65 20 3d 20 61 73 68 | 61 72 70 64 6f 77 6e 00 |re = ash|arpdown.|
|00001e30| 73 72 63 6c 53 74 72 6e | 00 00 00 10 44 72 61 77 |srclStrn|....Draw|
|00001e40| 20 6d 65 2e 67 72 61 70 | 68 69 63 73 73 72 63 6c | me.grap|hicssrcl|
|00001e50| 53 74 72 6e 00 00 00 06 | 65 6e 64 20 69 66 00 00 |Strn....|end if..|
|00001e60| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00001e70| 53 74 72 6e 00 00 00 2e | 74 68 65 43 75 72 72 65 |Strn....|theCurre|
|00001e80| 6e 74 4e 6f 74 65 20 3d | 20 28 74 68 65 4f 63 74 |ntNote =| (theOct|
|00001e90| 61 76 65 2a 31 32 29 2b | 74 68 65 43 75 72 72 65 |ave*12)+|theCurre|
|00001ea0| 6e 74 4e 6f 74 65 00 00 | 73 72 63 6c 53 74 72 6e |ntNote..|srclStrn|
|00001eb0| 00 00 00 2b 74 68 65 50 | 6c 61 79 65 72 2e 70 6c |...+theP|layer.pl|
|00001ec0| 61 79 4e 6f 74 65 20 74 | 68 65 43 75 72 72 65 6e |ayNote t|heCurren|
|00001ed0| 74 4e 6f 74 65 2c 74 68 | 65 56 6f 6c 75 6d 65 00 |tNote,th|eVolume.|
|00001ee0| 73 72 63 6c 53 74 72 6e | 00 00 00 1a 74 68 65 4c |srclStrn|....theL|
|00001ef0| 61 73 74 4e 6f 74 65 3d | 74 68 65 43 75 72 72 65 |astNote=|theCurre|
|00001f00| 6e 74 4e 6f 74 65 00 00 | 73 72 63 6c 53 74 72 6e |ntNote..|srclStrn|
|00001f10| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 04 |....srcl|Strn....|
|00001f20| 65 6c 73 65 73 72 63 6c | 53 74 72 6e 00 00 00 20 |elsesrcl|Strn... |
|00001f30| 2f 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |//******|********|
|00001f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f50| 73 72 63 6c 53 74 72 6e | 00 00 00 0f 2f 2f 20 20 |srclStrn|....//  |
|00001f60| 20 77 68 69 74 65 20 6b | 65 79 73 00 73 72 63 6c | white k|eys.srcl|
|00001f70| 53 74 72 6e 00 00 00 20 | 2f 2f 2a 2a 2a 2a 2a 2a |Strn... |//******|
|00001f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f90| 2a 2a 2a 2a 2a 2a 2a 2a | 73 72 63 6c 53 74 72 6e |********|srclStrn|
|00001fa0| 00 00 00 18 2f 2f 63 61 | 6c 63 75 6c 61 74 65 20 |....//ca|lculate |
|00001fb0| 77 68 69 63 68 20 6f 63 | 74 61 76 65 73 72 63 6c |which oc|tavesrcl|
|00001fc0| 53 74 72 6e 00 00 00 19 | 64 20 3d 20 28 28 78 2d |Strn....|d = ((x-|
|00001fd0| 68 6f 72 69 7a 53 63 72 | 6f 6c 6c 29 2f 32 34 35 |horizScr|oll)/245|
|00001fe0| 29 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |)...srcl|Strn....|
|00001ff0| 72 65 73 75 6c 74 20 3d | 20 63 65 69 6c 28 64 29 |result =| ceil(d)|
|00002000| 73 72 63 6c 53 74 72 6e | 00 00 00 0a 69 3d 72 65 |srclStrn|....i=re|
|00002010| 73 75 6c 74 2d 31 00 00 | 73 72 63 6c 53 74 72 6e |sult-1..|srclStrn|
|00002020| 00 00 00 0b 74 68 65 4f | 63 74 61 76 65 3d 69 00 |....theO|ctave=i.|
|00002030| 73 72 63 6c 53 74 72 6e | 00 00 00 00 73 72 63 6c |srclStrn|....srcl|
|00002040| 53 74 72 6e 00 00 00 33 | 2f 2f 63 61 6c 63 75 6c |Strn...3|//calcul|
|00002050| 61 74 65 20 77 68 69 63 | 68 20 77 68 69 74 65 20 |ate whic|h white |
|00002060| 6b 65 79 20 69 6e 20 74 | 68 65 20 6f 63 74 61 76 |key in t|he octav|
|00002070| 65 20 28 6b 65 79 23 31 | 2d 37 29 00 73 72 63 6c |e (key#1|-7).srcl|
|00002080| 53 74 72 6e 00 00 00 23 | 64 20 3d 20 28 78 2d 68 |Strn...#|d = (x-h|
|00002090| 6f 72 69 7a 53 63 72 6f | 6c 6c 29 20 2d 20 74 68 |orizScro|ll) - th|
|000020a0| 65 4f 63 74 61 76 65 2a | 32 34 35 00 73 72 63 6c |eOctave*|245.srcl|
|000020b0| 53 74 72 6e 00 00 00 08 | 64 20 3d 20 64 2f 33 35 |Strn....|d = d/35|
|000020c0| 73 72 63 6c 53 74 72 6e | 00 00 00 10 72 65 73 75 |srclStrn|....resu|
|000020d0| 6c 74 20 3d 20 63 65 69 | 6c 28 64 29 73 72 63 6c |lt = cei|l(d)srcl|
|000020e0| 53 74 72 6e 00 00 00 08 | 69 3d 72 65 73 75 6c 74 |Strn....|i=result|
|000020f0| 73 72 63 6c 53 74 72 6e | 00 00 00 11 74 68 65 4b |srclStrn|....theK|
|00002100| 65 79 49 73 44 6f 77 6e | 3d 74 72 75 65 00 00 00 |eyIsDown|=true...|
|00002110| 73 72 63 6c 53 74 72 6e | 00 00 00 2b 78 6f 66 66 |srclStrn|...+xoff|
|00002120| 73 65 74 20 3d 20 28 74 | 68 65 4f 63 74 61 76 65 |set = (t|heOctave|
|00002130| 2a 32 34 35 29 20 2d 20 | 28 30 2d 68 6f 72 69 7a |*245) - |(0-horiz|
|00002140| 53 63 72 6f 6c 6c 29 00 | 73 72 63 6c 53 74 72 6e |Scroll).|srclStrn|
|00002150| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0d |....srcl|Strn....|
|00002160| 73 65 6c 65 63 74 20 63 | 61 73 65 20 69 00 00 00 |select c|ase i...|
|00002170| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|00002180| 20 31 2f 2f 63 00 00 00 | 73 72 63 6c 53 74 72 6e | 1//c...|srclStrn|
|00002190| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|000021a0| 74 65 3d 30 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=0srcl|Strn....|
|000021b0| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 63 64 6f |thePictu|re = cdo|
|000021c0| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|000021d0| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|000021e0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|000021f0| 20 32 2f 2f 64 00 00 00 | 73 72 63 6c 53 74 72 6e | 2//d...|srclStrn|
|00002200| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00002210| 74 65 3d 32 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=2srcl|Strn....|
|00002220| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 64 64 6f |thePictu|re = ddo|
|00002230| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|00002240| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00002250| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|00002260| 20 33 2f 2f 65 00 00 00 | 73 72 63 6c 53 74 72 6e | 3//e...|srclStrn|
|00002270| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00002280| 74 65 3d 34 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=4srcl|Strn....|
|00002290| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 65 64 6f |thePictu|re = edo|
|000022a0| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|000022b0| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|000022c0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|000022d0| 20 34 2f 2f 66 00 00 00 | 73 72 63 6c 53 74 72 6e | 4//f...|srclStrn|
|000022e0| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|000022f0| 74 65 3d 35 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=5srcl|Strn....|
|00002300| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 66 64 6f |thePictu|re = fdo|
|00002310| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|00002320| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00002330| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|00002340| 20 35 2f 2f 67 00 00 00 | 73 72 63 6c 53 74 72 6e | 5//g...|srclStrn|
|00002350| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00002360| 74 65 3d 37 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=7srcl|Strn....|
|00002370| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 67 64 6f |thePictu|re = gdo|
|00002380| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|00002390| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|000023a0| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|000023b0| 20 36 2f 2f 61 00 00 00 | 73 72 63 6c 53 74 72 6e | 6//a...|srclStrn|
|000023c0| 00 00 00 10 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|000023d0| 74 65 3d 39 73 72 63 6c | 53 74 72 6e 00 00 00 12 |te=9srcl|Strn....|
|000023e0| 74 68 65 50 69 63 74 75 | 72 65 20 3d 20 61 64 6f |thePictu|re = ado|
|000023f0| 77 6e 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |wn..srcl|Strn....|
|00002400| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00002410| 73 72 63 6c 53 74 72 6e | 00 00 00 09 63 61 73 65 |srclStrn|....case|
|00002420| 20 37 2f 2f 62 00 00 00 | 73 72 63 6c 53 74 72 6e | 7//b...|srclStrn|
|00002430| 00 00 00 11 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|00002440| 74 65 3d 31 31 00 00 00 | 73 72 63 6c 53 74 72 6e |te=11...|srclStrn|
|00002450| 00 00 00 12 74 68 65 50 | 69 63 74 75 72 65 20 3d |....theP|icture =|
|00002460| 20 62 64 6f 77 6e 00 00 | 73 72 63 6c 53 74 72 6e | bdown..|srclStrn|
|00002470| 00 00 00 10 44 72 61 77 | 20 6d 65 2e 67 72 61 70 |....Draw| me.grap|
|00002480| 68 69 63 73 73 72 63 6c | 53 74 72 6e 00 00 00 0a |hicssrcl|Strn....|
|00002490| 65 6e 64 20 73 65 6c 65 | 63 74 00 00 73 72 63 6c |end sele|ct..srcl|
|000024a0| 53 74 72 6e 00 00 00 00 | 73 72 63 6c 53 74 72 6e |Strn....|srclStrn|
|000024b0| 00 00 00 2e 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |....theC|urrentNo|
|000024c0| 74 65 20 3d 20 28 74 68 | 65 4f 63 74 61 76 65 2a |te = (th|eOctave*|
|000024d0| 31 32 29 2b 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |12)+theC|urrentNo|
|000024e0| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 2b |te..srcl|Strn...+|
|000024f0| 74 68 65 50 6c 61 79 65 | 72 2e 70 6c 61 79 4e 6f |thePlaye|r.playNo|
|00002500| 74 65 20 74 68 65 43 75 | 72 72 65 6e 74 4e 6f 74 |te theCu|rrentNot|
|00002510| 65 2c 74 68 65 56 6f 6c | 75 6d 65 00 73 72 63 6c |e,theVol|ume.srcl|
|00002520| 53 74 72 6e 00 00 00 1a | 74 68 65 4c 61 73 74 4e |Strn....|theLastN|
|00002530| 6f 74 65 3d 74 68 65 43 | 75 72 72 65 6e 74 4e 6f |ote=theC|urrentNo|
|00002540| 74 65 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 06 |te..srcl|Strn....|
|00002550| 65 6e 64 20 69 66 00 00 | 73 72 63 6c 53 74 72 6e |end if..|srclStrn|
|00002560| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 10 |....srcl|Strn....|
|00002570| 44 72 61 77 20 6d 65 2e | 67 72 61 70 68 69 63 73 |Draw me.|graphics|
|00002580| 73 72 63 6c 53 74 72 6e | 00 00 00 0b 72 65 74 75 |srclStrn|....retu|
|00002590| 72 6e 20 74 72 75 65 00 | 73 72 63 6c 53 74 72 6e |rn true.|srclStrn|
|000025a0| 00 00 00 00 73 72 63 6c | 53 74 72 6e 00 00 00 0c |....srcl|Strn....|
|000025b0| 45 6e 64 20 46 75 6e 63 | 74 69 6f 6e 45 6e 64 47 |End Func|tionEndG|
|000025c0| 49 6e 74 20 00 00 00 19 | 45 6e 64 47 49 6e 74 20 |Int ....|EndGInt |
|000025d0| 00 00 00 18 48 49 6e 73 | 47 72 75 70 00 00 00 b0 |....HIns|Grup....|
|000025e0| 00 00 00 1a 6e 61 6d 65 | 53 74 72 6e 00 00 00 05 |....name|Strn....|
|000025f0| 50 61 69 6e 74 00 00 00 | 73 6f 72 63 47 72 75 70 |Paint...|sorcGrup|
|00002600| 00 00 00 80 00 00 00 1b | 73 74 73 72 49 6e 74 20 |........|stsrInt |
|00002610| 00 00 00 01 73 74 73 63 | 49 6e 74 20 00 00 00 07 |....stsc|Int ....|
|00002620| 6e 64 73 72 49 6e 74 20 | 00 00 00 01 6e 64 73 63 |ndsrInt |....ndsc|
|00002630| 49 6e 74 20 00 00 00 07 | 73 72 63 6c 53 74 72 6e |Int ....|srclStrn|
|00002640| 00 00 00 18 53 75 62 20 | 50 61 69 6e 74 28 67 20 |....Sub |Paint(g |
|00002650| 41 73 20 47 72 61 70 68 | 69 63 73 29 73 72 63 6c |As Graph|ics)srcl|
|00002660| 53 74 72 6e 00 00 00 07 | 44 72 61 77 20 67 20 00 |Strn....|Draw g .|
|00002670| 73 72 63 6c 53 74 72 6e | 00 00 00 07 45 6e 64 20 |srclStrn|....End |
|00002680| 53 75 62 00 45 6e 64 47 | 49 6e 74 20 00 00 00 1b |Sub.EndG|Int ....|
|00002690| 45 6e 64 47 49 6e 74 20 | 00 00 00 1a 50 61 64 6e |EndGInt |....Padn|
|000026a0| 50 61 64 6e 00 00 01 6c | 2a 2a 2a 2a 2a 2a 2a 2a |Padn...l|********|
|000026b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000027f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002810| 2a 2a 2a 2a 45 4f 46 21 |                         |****EOF!|        |
+--------+-------------------------+-------------------------+--------+--------+